home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / Sample Code Update 01⁄96 / MenuScripter 3.1 / MenuScripter / MenuScripter.rsrc / SCPT_4236 < prev    next >
Encoding:
Text File  |  1995-11-20  |  219 b   |  9 lines
  1. tell application "MenuScripter" 
  2. copy selection of window 1 to usersel
  3. set fontsize to the size of usersel
  4. set fontsize to fontsize-1 
  5. if fontsize=0
  6. set fontsize to 12
  7. end if
  8. set the size of usersel to fontsize
  9. end tell